CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/FSPELL.SMM

INI File | 1992-11-18 | 8.5 KB | 588 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Revisa la ortograf<\m>a de varios documentos a la vez.
    Lotus WPD Marketing
    Intermediate
    FillList, Spelling
    noautorun
    714788394
    46
    676699899
    301
    3
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Est<\a>ndar
    12
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[l1]
    0
[pg]
    3
    46 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    92 0 13 64 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    106 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#293,9360>Macro by <+!>Charlie Pappas<-!>

<:#279,9360>

<:#279,9360>function fspell()

<:#279,9360>IF IsNewWave()

<:#279,9360>    Message("Macro no disponible si se ejecuta en HP NewWave.")

<:#279,9360>    Exit Function

<:#279,9360>ENDIF

<:#279,9360>ignorekeyboard(2)

<:#279,9360>for i = 101 to 105

<:#279,9360>    filledit(i, 1)

<:#279,9360>next

<:#279,9360>again:

<:#279,9360>filledit(9001, strcat$(GetDocPath$(), "*.sam"))

<:#279,9360>box = dialogbox(".", "files")

<:#279,9360>if box <<<;> 1

<:#279,9360>    return 0

<:#279,9360>endif

<:#279,9360>if getdialogfield$(8001) = ""

<:#279,9360>    message("Seleccione archivos de la lista")

<:#279,9360>    goto again

<:#279,9360>endif

<:#279,9360>cdir = getcurrentdir$()

<:#279,9360>dim files(100)

<:#279,9360>for i = 1 to 100

<:#279,9360>    file = strfield$(getdialogfield$(8001), i, " ")

<:#279,9360>    if file = -1

<:#279,9360>        break

<:#279,9360>    endif

<:#279,9360>    files(i) = file

<:#279,9360>next

<:#279,9360>opts = 0

<:#279,9360>if getdialogfield$(101)

<:#279,9360>    opts = opts + 1

<:#279,9360>endif

<:#279,9360>if not getdialogfield$(102)

<:#279,9360>    opts = opts + 2

<:#279,9360>endif

<:#279,9360>if not getdialogfield$(103)

<:#279,9360>    opts = opts + 4

<:#279,9360>endif

<:#279,9360>if not getdialogfield$(104)

<:#279,9360>    opts = opts + 8

<:#279,9360>endif

<:#279,9360>if not getdialogfield$(105)

<:#279,9360>    opts = opts + 16

<:#279,9360>endif

<:#279,9360>if getdialogfield$(106)

<:#279,9360>    opts = opts + 64

<:#279,9360>endif

<:#279,9360> for j = 1 to i - 1

<:#279,9360>'singlestep(1)

<:#279,9360>    file = files(j)

<:#279,9360>    if j = 1

<:#279,9360>        opts = 1

<:#279,9360>    else

<:#279,9360>        opts = 129

<:#279,9360>    endif

<:#284,9360><:f240,2Times New Roman,255,0,0>    ifopen = 0

<:#284,9360><:f240,2Times New Roman,255,0,0>    Count = GetOpenFileCount()

<:#284,9360><:f240,2Times New Roman,255,0,0>    IF Count <;> 0

<:#284,9360><:f240,2Times New Roman,255,0,0>    DIM Filess(Count)

<:#284,9360><:f240,2Times New Roman,255,0,0>    GetOpenFileNames(&Filess)

<:#284,9360><:f240,2Times New Roman,255,0,0>    FOR II = 1 to Count

<:#284,9360><:f240,2Times New Roman,255,0,0>    f = filess(II)

<:#284,9360>    <:f240,2Times New Roman,255,0,0>pathplace = instr(0, f, "\")

<:#284,9360><:f240,2Times New Roman,255,0,0>    while pathplace <<<;> 0

<:#284,9360><:f240,2Times New Roman,255,0,0>        pathtemp = pathplace + 1

<:#284,9360><:f240,2Times New Roman,255,0,0>        pathplace = instr(pathtemp, f,"\")

<:s><:#284,9360><:f240,2Times New Roman,255,0,0>    wend

<:#284,9360><:f240,2Times New Roman,255,0,0>    length = len(f)

<:#284,9360><:f240,2Times New Roman,255,0,0>    pathplace = right$(f, length  - pathtemp + 1)

<:#284,9360><:f240,2Times New Roman,255,0,0>    if  pathplace =  ucase$(file) and ifopen = 0 then

<:#284,9360><:f240,2Times New Roman,255,0,0>        ifopen = 1<:f>

<:#284,9360><:f240,2Times New Roman,255,0,0>    <:f><:f240,2Times New Roman,255,0,0>endif

<:#284,9360><:f240,2Times New Roman,255,0,0>    NEXT    <:f>

<:#284,9360>    <:f240,2Times New Roman,255,0,0>endif

<:#284,9360><:f240,2Times New Roman,255,0,0>    if ifopen = 0 then

<:#279,9360>        FileOpen(strcat$(cdir, file),  1, "")

<:#279,9360>        spellcheck(opts)

<:#279,9360>        save()

<:#279,9360>        fileclose()

<:#284,9360>    <:f240,2Times New Roman,255,0,0>else<:f>

<:#284,9360>        <:f240,2Times New Roman,255,0,0>selectwindow({file})

<:#284,9360><:f240,2Times New Roman,255,0,0>        spellcheck(Opts)

<:#284,9360><:f240,2Times New Roman,255,0,0>        save()

<:#284,9360><:f240,2Times New Roman,255,0,0>    endif        <:f>

<:#279,9360>next

<:#279,9360>end function

<:#279,9360>

<:#279,9360>DIALOG files

-2134376448 13 86 28 184 158 "" "" "Ortograf<\m>a de varios archivos"

<:#284,9360>FONT 8 "Helv"

6 6 66 8 1000 1342308352 "static" "&Archivos:" 0

<:#279,9360>6 16 66 58 9001 1352728587 "listbox" "" 0

5 77 173 75 900 1342308359 "button" "&Opciones" 0

10 89 163 9 101 1342242819 "button" "Principio del documento" 0

10 99 163 9 102 1342242819 "button" "Incluir otras &unidades de texto" 0

10 109 163 9 103 1342242819 "button" "Revisar palabras &repetidas" 0

10 119 163 9 104 1342242819 "button" "Revisar palabras con &n<\z>meros" 0

10 129 163 9 105 1342242819 "button" "Revisar may<\z>sculas &iniciales" 0

10 139 163 9 106 1342242819 "button" "Incluir &alternativas del diccionario de usuario" 0

136 6 40 14 1 1342373889 "button" "Aceptar" 0

136 22 40 14 2 1342373888 "button" "Cancelar" 0

<:#279,9360>78 26 36 1 8001 1342177280 "static" "" 0

<:#279,9360>78 46 98 8 7999 1342177280 "static" "" 0

<:#279,9360>END DIALOG

>

[Embedded]
00005884
>
[macsum] 2
fspell 0 0 16 2
files 1823 0 -1 89
[macse]
14 fspell
0 1317
13
11 00000104
0 3 "Macro no disponible si se ejecuta en HP NewWave."
6 0
15
9
0 32 2
5 101
8 1
5 105
6 1
18 2
12 00000201
10 00000228
5 1
6 1
3 0
8 1
10 00000124
0 31 "{1}" 1
10 00000168
0 268
13
0 16 [X] "*.sam"
13
0 31 9001 [X]
0 26 "." "files"
13
8 2
6 2
5 1
18 1
11 00000344
5 0
15
9
0 27 8001
13
7 ""
18 0
11 00000436
0 3 "Seleccione archivos de la lista"
10 00000228
0 290
13
8 3
5 100
21 4 [X]
5 1
8 1
5 100
6 1
18 2
12 00000556
10 00000672
5 1
6 1
3 0
8 1
10 00000479
0 27 8001
13
0 20 [X] "{1}" " "
13
8 5
6 5
5 -1
18 0
11 00000643
10 00000672
6 1
6 5
23 4
10 00000523
5 0
8 6
0 27 101
13
11 00000729
6 6
5 1
3 0
8 6
0 27 102
13
1 3
11 00000781
6 6
5 2
3 0
8 6
0 27 103
13
1 3
11 00000833
6 6
5 4
3 0
8 6
0 27 104
13
1 3
11 00000885
6 6
5 8
3 0
8 6
0 27 105
13
1 3
11 00000938
6 6
5 16
3 0
8 6
0 27 106
13
11 00000986
6 6
5 64
3 0
8 6
5 1
8 7
6 1
5 1
3 1
6 7
18 2
12 00001081
10 00001811
5 1
6 7
3 0
8 7
10 00000996
6 7
22 4
8 5
6 7
5 1
18 0
11 00001149
5 1
8 6
10 00001161
5 129
8 6
5 0
8 8
0 1050
13
8 9
6 9
5 0
18 3
11 00001646
6 9
21 10 [X]
0 1051 &10
5 1
8 11
6 9
6 11
18 2
12 00001334
10 00001646
5 1
6 11
3 0
8 11
10 00001256
6 11
22 10
8 12
0 808 0 "{12}" "\"
13
8 13
6 13
5 0
18 1
11 00001483
6 13
5 1
3 0
8 14
0 808 "{14}" "{12}" "\"
13
8 13
10 00001383
0 14 "{12}"
13
8 15
6 15
6 14
3 1
5 1
3 0
0 807 "{12}" [X]
13
8 13
6 13
0 18 "{5}"
13
18 0
6 8
5 0
18 0
1 1
11 00001633
5 1
8 8
10 00001299
6 8
5 0
18 0
11 00001761
0 16 "{3}" "{5}"
13
2 102 1 [X] 1 ""
2 459 1 "{6}"
2 103 1
2 147 1
10 00001798
0 796 "{5}"
2 459 1 "{6}"
2 103 1
10 00001048
6 0
15
9
DIALOG files
-2134376448 13 86 28 184 158 "" "" "Ortografφa de varios archivos"
FONT 8 "Helv"
6 6 66 8 1000 1342308352 "static" "&Archivos:" 0
6 16 66 58 9001 1352728587 "listbox" "" 0
5 77 173 75 900 1342308359 "button" "&Opciones" 0
10 89 163 9 101 1342242819 "button" "Principio del documento" 0
10 99 163 9 102 1342242819 "button" "Incluir otras &unidades de texto" 0
10 109 163 9 103 1342242819 "button" "Revisar palabras &repetidas" 0
10 119 163 9 104 1342242819 "button" "Revisar palabras con &n·meros" 0
10 129 163 9 105 1342242819 "button" "Revisar may·sculas &iniciales" 0
10 139 163 9 106 1342242819 "button" "Incluir &alternativas del diccionario de usuario" 0
136 6 40 14 1 1342373889 "button" "Aceptar" 0
136 22 40 14 2 1342373888 "button" "Cancelar" 0
78 26 36 1 8001 1342177280 "static" "" 0
78 46 98 8 7999 1342177280 "static" "" 0
00005909